home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 174 / 174.d81 / satellite view (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  62 lines
  1. 10 poke55,.:poke56,56:clr
  2. 15 poke53280,.:poke53281,.:print"[147]"
  3. 20 poke53371,0
  4. 25 dv=peek(186):ifdv<8thendv=8
  5. 26 ad=49152
  6. 27 sysad:sysad+12
  7. 30 poke53280,.:poke53281,.:poke53272,31
  8. 32 bx$="[156]_[157]_[157]_[157]_[157]_[157]_[157]_[157]_[157]_[157]_[157]_[157]_[157]_[157]_[157]_[157]_[157]_[157]_[157]_[157]_[157]_[157]_"
  9. 35 r=6378.14
  10. 40 rd=57.29578
  11. 42 print"[147][156]^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^":sysad+9,9
  12. 43 printbx$""tab(38)bx$
  13. 44 print"[156]^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^"
  14. 45 print""tab(5)"[156][211][193][212][197][204][204][201][212][197] [197][204][197][214][193][212][201][207][206] [197][211][212][201][205][193][212][207][210]"
  15. 50 printtab(3)"[159][207]bject's [201]nclination [155]([219]'s):";:l9%=5:gosub355:i=q9
  16. 55 printtab(3)"[159][201]ts [205]aximum [200]eight [155](mi):";:l9%=7:gosub355:h=q9
  17. 57 l=l/.6
  18. 60 printtab(3)"[159][217]our [204]atitude [155]([219]'s):";:l9%=5:gosub355:l=q9
  19. 61 poke214,11:print:printtab(8)"[201]s this correct? [150][217][154]/[150][206]":poke198,.
  20. 62 geta$:ifa$<>"y"anda$<>"n"then62
  21. 63 ifa$="n"then42
  22. 65 a=1:l=abs(l)
  23. 70 b=(r+h)/r
  24. 75 cc=(l-i)/rd
  25. 80 ifl<=ithencc=0
  26. 85 c2=a*a+b*b-2*a*b*cos(cc)
  27. 90 c=sqr(c2)
  28. 95 poke214,11:print:printtab(1)"[156]^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^"
  29. 97 printtab(6)"[155] [214]iewing [208]arameters are-":sysad+9,11
  30. 100 printtab(4)"[153][196]istance [159](mi):";(c*r)*.6
  31. 105 cb=(a*a+c2-b*b)/(2*a*c)
  32. 110 ifcb>1thencb=1
  33. 115 ifcb<-1thencb=-1
  34. 120 bb=atn(sqr(1-cb*cb)/cb)*rd
  35. 125 ifbb<=0thenbb=bb+180
  36. 130 mx=bb-90
  37. 135 printtab(3)"[153][205]ax. [197]levation [193]ngle=";mx
  38. 145 print
  39. 150 gosub3000
  40. 165 goto30
  41. 355 q9$="":poke198,.
  42. 360 geta$
  43. 365 poke646,rnd(1)*15+1:print"*[157]";:ifa$=""then360
  44. 370 ifa$=chr$(13)thenprint" ":q9=val(q9$):return
  45. 375 if(a$=chr$(20)andlen(q9$))thenq9$=left$(q9$,len(q9$)-1):goto397
  46. 380 iflen(q9$)>=l9%thensysad+9,1:goto360
  47. 385 if(a$>="0"anda$<="9")ora$="."ora$="-"ora$="+"then390
  48. 387 goto360
  49. 390 q9$=q9$+a$
  50. 395 print"[158]"a$;:sysad+9,10:goto360
  51. 397 print" [157][157] [157]";:goto360
  52. 3000 poke214,19:print:printtab(8)"[158]([150]1[158]) [212]ry another one
  53. 3010 [153][163]8)"sys(def2sys) (NULL)o (NULL)(NULL)right$(NULL)val(NULL)(NULL)val (NULL)enu
  54. 3020 poke198,0
  55. 3030 geta$:ifa$<"1"ora$>"2"then3030
  56. 3040 ifa$="1"thenreturn
  57. 3050 sysad+15
  58. 3060 print"[147][144]load"chr$(34)"b.universe iii"chr$(34)","dv
  59. 3070 print"run28"
  60. 3080 poke631,13:poke632,13:poke198,2:end
  61. 10000 d=peek(186):n$="0:satellite view":open15,d,15,"s"+n$:close15:saven$,d:end
  62.